home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / GETDRIVE.BAS < prev    next >
BASIC Source File  |  1991-10-18  |  931b  |  29 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: GETDRIVE.BAS       PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 10/18/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM GETS THE CURRENT DRIVE
  7. '
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. CLS
  11. CALL GETDRIVE(DRIVE%)
  12. PRINT "THE CURRENT DISK DRIVE IS: ";CHR$(DRIVE% + 65)
  13.  
  14. END
  15. '
  16. ' RETURNS DRIVE AS A NUMBER - A=0, B=1, C=2, ETC
  17. ' CONVERT TO LETTER BY:   DRIVELETTER$ = CHR$(DRIVEX% + 65)
  18. '----------------------------------------------------------
  19. SUB GETDRIVE (DRIVEX%)
  20.    %FL = 0: %AX = 1: %BX = 2: %CX = 3: %DX = 4
  21.    %SI = 5: %DI = 6: %BP = 7: %DS = 8: %ES = 9
  22.  
  23.    REG %AX, &H1900                ' SET AH FOR GET DRIVE SERVICE
  24.    CALL INTERRUPT &H21            ' ASK DOS FOR CURRENT DRIVE
  25.  
  26.    DRIVEX% = REG(%AX) AND &HFF     ' DRIVE # IS IN AX, - CLEAR HIGH PART (AH)
  27.  
  28. END SUB
  29.